#this script reads data from a file and plots CPU busy time
data <- read.table('./lab7data', skip=3)
u <- data[,'V11']
plot(100-u, type="o", col="red")
title(main="CPU busy time", col.main="blue", font.main=4)
